www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/admin/Ku_check.asp

    <!--#include file="../Ku_inc/Ku_sql.asp"-->
<!--#include file="../ku_inc/Ku_config.asp"-->
<!--#include file="Ku_conn.asp"-->
<!--#include file="../Ku_inc/Ku_md5.asp"-->

<%
    function Checkin(s) 
    s=trim(s) 
    s=replace(s," ","&amp;nbsp;") 
    s=replace(s,"'","&amp;#39;") 
    s=replace(s,"""","&amp;quot;") 
    s=replace(s,"&lt;","&amp;lt;") 
    s=replace(s,"&gt;","&amp;gt;") 
    Checkin=s 
    end function 


    response.expires = -1
    if request("Action")="logincheck" then
    username=Checkin(trim(Request.form("adminname")))
    password=Checkin(replace(trim(Request.Form("password")),"'","''"))
    Md5_Pass=md5(password)
    Ku_CheckCode=replace(trim(Request("CheckCode")),"'","")
    if username="" or password="" then 
    Response.write"<script>alert(""用户名和密码不能为空！ "");location.href=""Ku_Login.asp"";</script>"
    Response.end
    end if
    if Ku_CheckCode<>CStr(session("RndNum"))  then 
    Response.write"<script>alert(""验证码不正确，请刷新后重新登陆 "");location.href=""Ku_Login.asp"";</script>"
    Response.end
    end if
    set rs=server.createobject("adodb.recordset")
    sql="select * from ku_admin where username='"&username&"'and password='"&Md5_Pass&"'"
    rs.open sql,conn,1,3
    if not rs.EOF then
    
    rs("LoginTimes")=rs("LoginTimes")+1
	rs("LoginTime")=now()
	rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
	rs.Update



    session.Timeout=30000
	session("Ku_AdminID")=Rs("ID")
	session("ku_Admin")=Rs("Username")
	session("ku_pass")=Rs("Password")
	session("Ku_Session")=true
    Session("httpss")=Request.ServerVariables("SERVER_NAME")
    Response.write "<script>window.open('index.asp','_top');</script>"
	'Response.Redirect ("index.asp")
    else
	Response.write"<script>alert(""用户名or密码错误，请输入正确的帐号密码！ "");location.href=""Ku_Login.asp"";</script>"
	Response.End 
    end if
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    end if
    
    
    if request("Action")="ku_logout" then
    
    set rs=server.createobject("adodb.recordset")
    AdminID=session("ku_AdminID")
    sql="select * from ku_admin where id="&AdminID
    rs.open sql,conn,1,3
    if not rs.EOF then
	rs("LogoutTime")=now()
	rs.Update
	Session("Ku_AdminID")=""
	Session("ku_Admin")=""
	Session("ku_Admin")=""
	Session("ku_Admin")=""
    Session("httpss")=""
	rs.Close
	set rs=nothing
	else
	response.write"数据出错！"
	Response.end
	end if

    conn.close
    set conn=nothing
    'Response.Write "<script>location.href=""javascript:window.close()"";</script>"
    response.redirect ("../Default.asp")
    'Response.Write "<script>alert(""退出成功!"");location.href=""javascript:window.close()"";</script>"
    end if
%>